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declarations 
pet mem Allocate memory 
REE_MEM Free virtual memory 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED tee? A LICENSE AND MAY BE USED AND COPIED 
ONLY IN oie cE re oue'e THE TERMS OF SUCH bicen E AND WITH THE 
INCLUSION CF OPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF NAA YNOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORATI On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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“FACILITY: Memory allocation routiens 
ABSTRACT: ALLOCATE AND DEALLOCATE VIRTUAL BLOCK 


ENVIRONMENT: VAX Native mode 
AUTHOR: K.D. MORSE, CREATION DATE: 25-APR-77 
MODIFIED BY: 


v03-001 gur00se Jim Teague 25-May-1982 
Allow larger vm requests for crfs. 


x01.01 001 B.L. SCHREIBER P-FEO-1979 
Correct error in allocation routine. 

v01.02 008 B.L. SCHREIBER 26-0CT-1979 
Declare SCRFMSG 

v01.03 010 B.L. SCHREIBER 13-NOV-1979 
Word-relative references 

v01.04 B.L. SCHREIBER 15-NOV-1979 
Generalize into GETMEM. 

v01.05 B.L. SCHREIBER 22-JAN-1980 
Round request up fo "8 bytes. 
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: -SBTTL declarations 
i ; Declare macros 
7 crfdef : cref control table offsets 
: Libdef 3; rtl error message defs 
: EQUATED SYMBOLS: 


Offset to addr of next block 


k$l_addr = 
k$l- yr = 4 Offset to size of this block 


& 
mem$c_roundup = 8 Round request s 
mem$ “sleweninbi = Lib$_badbloadr Block up requests within deallocat. 
mem$_illblksize = Lib$-badblosiz Illegal block size 


Success 


: mem$_success = 
5 


-default displacement, word ; Use word displacement 


GEIRER Allocate/deatlocate virtual menory ° — 15¢§ pr18Gt 3:52:87 pAX/vas Macro vOs~00 Poe 4, 


get_mem Allocate memory 4-SEP- 

- -SBTTL get_mem Allocate memory 
; Functional description: 
; This routine allocates a block of dynamic memory. The requested block 
; size is Feyntee to the nearest eight bytes. An error condition is 
; fycuress the block cannot be allocated. 
; First fit algorithm is used. 
Calling sequence: 

BSBW get_mem 


Input parameters: 


CRF ..SRCICRFMEM.MAR; 1 


RO Address of longword containing number of bytes to allocate 
R1 Address of longword to store allocated memory address 
R11 Pointer to cross reference control table 


Completion codes: 


success: 
r0 = contains a one 
failure: 
r0 - contains a zero 


Side effects: 


The dynamic memory List is updated. More dynamic memory is acquired 
if necessary 


-PSECT SCODES, NOPIC, USR, CON, REL, LCL, NOSHR, EXE, RD, NOWRT, NOVEC 


“+_>_+. 


' usher #*m<r0,r1> 
sbb get_mem 
blbc r0,T0$ 
popr #*m<r0,r1> 
pushe #*m<r2,r3,r4,r5> 


save r0/ri 

allocate the memory 
branch if no memory today 
restore arguments 

save registers over movc 


Soa 


Bete Se Se Se Se te 


0081 50 00 6€ OC moves #0. (sp) .#0.70.9¢r1) zero memory 
i" popr = #*m<r2,r3,r4,r5> restore registers 
50 soyt #mem$_success,r0 
8E 10$: capl (sp)+,(sp)+ ; clear saved r0/rl from stack 


return with error inr 


ie | 
wd 
. 


pusht rit ; save rl 
movl r2,rii set control table addr into r11 


SOOoOoOoOoooc’$ 


09999 


SOOOOOOoOoOCOoOo 


ar 


bsbb get_mem allocate the memory 
+ 
Rt =} rit restore ril 
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ocate memory . 2-SEb 1 98e 33:35:36 CRF ..SRCJCRFMEM.MAR; 1 . dy 
get_mem:: 
pusher #*M<r2, 73, r4> ; Save registers 
movl ri,r4 3; Save return result address 
SPtt #<mem$c_roundup-1>,r0,r3 ; Round up to the nearest 
bicl #<mem$c_roundup-1>,r ; Multiple of eight grtee 
bleq ; Check for size <= 
cmpl r3,crf$l_maxblk(r11) ; Check size > maximum 
bleq & :; Branch on legal size 
movl r3,crfSl_maxblk(ri1) ; If > maximum, store # bytes 
shl #9. "3, cFf$l_memexp(r11) ; and page count 
nel crf$l_memexptr11) 3 Add one page for excess bytes 
brb $ ; Go try so allocate it 
10$: mov l #mem$_illblksize,r0 ; Report illegal block size 
brb al_blk_exit 3 Return 


: Expand the program region 


20$: clrq (sp) 


; Make room on stack for return 
movl ger" 


i copy the address 


SEXPREG_ PAGCNT=crf$l_memexp(r11), pand dynamic memory 
RETADR=(r1) 
movqg (sp)+,r1 3 get return info from stack 
blbc r0,al_blk_exit : Branch if it failed 
: Now insert memory into List. 
Sos: mov l crf$l_maxblk(r11),r0 ; Get size of new block 
bsbb ree_mem : Go insert new blk in List 
blbc r0,al_blk_exit ; Branch if failed to insert new blo 


: Search down List for first block >= size requested. 
40$:  movab  crf$l_dynmem(r11),r1 
ri,r2 


; Get Listhead of Sypense memory 
50$: movl 3; Set new previous block 
movl (r2),ri 3; Get address of free block 
beql : End of List, go expand memory 
cmapl r5,bLk$l_size(r1) 3; Requested size > block size? 
bgtr 50$ : Yes, keep seen tng 
beql 60$ ; Branch on same size 


: Take part of this block and Link the rest back into the List. 


: subl2 3, bLkSL_size(r1) 
capl bLkSlL_size(ri) 48 
bleq 60$ 


addl2 DikSt_sizetri).r1 
brb 0$ 


: Subtract off requested size 
3; Did we allocate the pookkeeping wo 
: If so, go pretend it’s a good fit. 
: This can float at most 4 bytes. 

3; Get address of requested block 

3; Return 

t 


: Block was perfect fit. delete it from the lis 

60$: movil  blkSl_addr(r1) bLkSL_addr(r2) 
clrq bLk$l_addr(r1) 

70$: movl Snead success.r0 


movl ri,(r 
al_blk_exit: 
popr #*m<r2, 3, r4> 


: Set pointer to next block 
; Clean up the block 

3; Set success status code 

: Return address to caller 


COG90969 G99 696909 SII SSD DDD DED DDD DE TTI BB BS BS BBE EAI 


CONAN AN SO OO NAME WIN SO OOD NAME WIN O OO NIA NE WIN  O OO NAMEN O OO NOAUNS 
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FREE_MEM Free v rtual memory . 4-$ pa} 986 33:35:86 CRF. eRCICR M.MAR;1 ~~ 
. 138 +e -SBTTL FREE_MEM Free virtual memory 
A 1% ;* Funct tenet description: 
A 195 : This oe ine Spek locates a block of memory and inserts it into a dynamic 
Ad 1 $ 3 Memory | ¢ e block is zeroed and its size is Fpundes v to the 
Ad = 3; Nearest e ght totes. If it is adjacent to another block, the two blocks 
~ : : ; are compac ed into one. 
ny p 3 Calling sequence: 
Ay 3 ; BSBW Ss FREE_MEM 
Bad ¢ ; Input parameters: 
OA9 6 : RO size of block to deallocate 
OA9 07 ; R1 address of block to deallocate 
ond 3 : R11 Pointer to cross reference control block 
Ong + : Completion codes: 
OA9 \¢ ; success: 
OA9 13 3: r0 = contains a one 
OOA9 14; failure: 
Boag 12 ; r0 = contains a zero 
OA9 i > Side effects: 
OA9 18 ; 
OA9 19; NONE 
O00A9 0; 
OA9 1 j-- 
ees 
Boag 4 crf$free -mem: 
Ad 5 free_mem: 
ig 6B + § pusher #*n<r2, 3, 
53 29 0 C1 OO0AB addl\3 #<mem$c Teennuplk, "0. 3 3; Round up to the nearest 
5 of CA sta 8 108: bicl2 #<mem$c_roundup-1>,r ; Multiple of eight bytes 
$ 15 0082 bleq + 3 Check for size <= 
18 AB OS D1 00B4 0 capl r3,crf$l_maxblk(r11) ; Check size > maximum 
OA 15 0088 1 bleq 3: Branch on legal size 
50 Sotseees ? pee § 208: Bove We fi 3 popes illegal block size 
rw ex 3 
50 1 E C4 4 30$: movab crf *st _dynmem(r11),r0 3; Get Liathend of ft Gynante ns aenaty 
g C c8 5 clrq (rl) ; Clear block ong wo 
54 53 a 3 F addl3 r1.r3,r4 ; Get address following new Bock 
43 g Search down List for insertion pcint. 
52 50 D cE 49 los: eovi 0,92 ; R2 contains prev block 
5 $9 ) D 4 mov l (r6),r0 : RO contains next block addr 
¢ 1 D4 45 beqlu 60$ : Branch on end of List 
50 1 op1 +4 4 capl ri,r0 : Is new addr > next addr 
FS «OTA 4 rf: botru § : Yes, keep looking 
DB 46 : Found insertion point 
DB 47; r2 = addr of previous block 


a A 2 A 
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a Free virtual memory 4-SEP CRF. sRcJe MEM.MAR; 1 (4) 
dB ‘8 3 rh = addr of new block 
oe 4 ; r0 = addr of next block | 

$6 oy. dB : movl 4 “b k$l_addr(r2) ; Point prev to new | 
4 0D D cmpl 3; Is new adjacent to next? 
1 E beqlu coe" : Yes, branch to compact 
iA E 4 bgtru : Error, within bloc 
61 2 D E 5 mov l r0,bLk$l_addr(r1) 3; No, point new to next 
04 Al D E § movl r3,bLk$l-size(r1) : Set size of new block 
1 | Se ; brb 70$ : Go check adjacent to prev 
cE 33 ; Compact with next block. 
04 A1 04 A0 53 #1 cf 61 50s: addl3 sr 3, bLk$L_size(r0) bLk$l_size(r1) ; Set size = new+next 
1 $8 gO OF 86 mov bList addr (r0) bl Leet addr(ri) =; "Set next pointer 
8 C a4 6 clrq pro) 3; Clear old next block 
fe ae rt: brb 70$ ; Go check for compaction | 
oe 66 > Set up new block on end of List. 
62 51 DO OOFB 268 60$: movi ri, blk$l_addr(r2) : Point prev to new 
04 Al 53 00 of +4 movl r3.bLkSl~ _size(ri) 3; Set new block size 
19 4 : Check for compact with previous block. 
54 04 A2 52 C1 010 ig 70$: addl3 ree bLk$lL_size(r2),r4 : Get end of prev block 
51 54 D1 010 74 cmpl ri 3 Is new adjacent to prev? 
oF 1A Q10A 75 botru bos" : Error, block within prev 
1 12 Bide 6 bnequ 90$ 3; No, not edlecent 
10E 28 : Compact with previous block. | 
04 A2 04 A1 C0 195 80 * addi2s- bLk$SL_size(r1),blk kSts ize(r2) ; Prev size : ——- 
62 61 0 11 81 mov BLESL “addr(r1),blk$l-addr(r2) ; Set up nex 
61 C ats 5 clrq th : Clear new bipck pntr & size 
09 = «1 aie if brb : Branch to exit 
OIA 5 Error, block within block. 
50 00158264 8F 00 bse $ bos: movl #mem$_blkwthinbl,r0 3; Report block within block 
03 11 «0121 8 brb deal _Blk_exit ; Return 
50 01 DO 0123 9 90$: ovl gnenS. success,r0 3; Set success status code 
126 90 deal_blk woxit: 
1¢ Ba 1 91 po r #*m<r2, c3, r4> 
5 01 35 
1 9 | 
129 29% end | 
| 
| 
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= 0 

AL_BLK_EXIT A6 R 02 
BLE ADDR s 8 
BLKSL SIZE = 
CRESFREE MEM AD RG 8g 

FSGET 1¢ RG 
CRFSL_DYNMEM = 1 
CRF SL_MAXBLK 2 1 
CRF MEMEXP = 1 
DEAL _BLK_EXIT 26 R 8 
FREE MEM AI RG 
GET_AEM 4 RG 0 
GET_ZMEM 0 RG 
L1B8$_BADBLOADR = 4 64 
LIB$_BADBLOSIZ = 001 6C 
MEMSC_ROUNDUP = 00000008 
MEMS_BLKWTHI = 00158264 
MEMS_ILLBLKSIZE = 0015826C 
MEMS SUCCESS = 00000001 
SYSSEXPREG eeeeeeee GX 02 

$oeonm es ecenweeossne 4 


PSECT name Allocation PSECT No. Attributes 


- ABS . 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) O07 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SCODES 00000129 ¢ 297.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 


ewer eee meow women r ee moon oan} 


Phase Page faults CPU Time Elapsed Time 


Initialization 5 0:00:00.05 :00:00.4 
Command processing 138 $00 :00.6 OO be:49 
Pass 1 160 83:8 :02.4 Se see 
Symbol table sort 0 0:00:00.1 00:00:01.11 
Pass 2 68 0:00: 3-78 820820) +58 
Symbol table output 4 :00:00.0 :00:00.06 
Psect synopsis output 1 :00: 8-8 : + = 3 
Cross-reference output 0 :00:00. : é 
Assembler run totals 408 :00:04.1 :00:13.34 


The working set Limit was 1050 pages. 

12559 bytes (25 pages) of virtual memory were used to buffer the intermediate sgde. 

There were 10 pages of symbol table space ah yecoted to hold 142 non-local ane 17 local symbols. 
94 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

2 pages of virtual memory were used to define 11 macros. 
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! Macro Library statistics ! 


temo mewn enon eee ee em een een en } 


Macro Library name Macros defined 


~$533$0U age: poRE. -OBJICRF .MLB; 1 1 
| Noss 5 STARLET. MLB; 2 7 
Bitty (all Libraries) 8 


307 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LISS:CRFMEM/OBJ=O0BJ$:CRFMEM MSRCS$:CRFMEM/UPDATE=(ENHS:CRFMEM) +L18$:CRF/LIB 
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